10 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0
20 FORX=1TO9:PRINT:NEXT:PRINTTAB(12)"TURN UP VOLUME."
30 PRINT:PRINTTAB(9)"HIT ANY KEY TO BEGIN."
35 PRINT:PRINTTAB(9)"HIT RUN/STOP TO STOP."
40 GETA$:IFA$=""THEN40
50 PRINTCHR$(147)
60 FORR=54272TO54295:POKER,0:NEXT
70 POKE54296,15:FORT=1TO500:NEXT
80 POKE54277,4:POKE54275,8
90 X=1524:J=54273:K=54272:L=54276:C=54272
100 CH=INT(17*RND(1))+1
110 ONCHGOTO111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127
111 CH=81:GOTO200
112 CH=86:GOTO200
113 CH=91:GOTO200
114 CH=92:GOTO200
115 CH=102:GOTO200
116 CH=108:GOTO200
117 CH=123:GOTO200
118 CH=127:GOTO200
119 CH=160:GOTO200
120 CH=171:GOTO200
121 CH=204:GOTO200
122 CH=205:GOTO200
123 CH=209:GOTO200
124 CH=214:GOTO200
125 CH=233:GOTO200
126 CH=236:GOTO200
127 CH=238:GOTO200
200 LO=INT(255*RND(1))+1:HI=INT(255*RND(1))+1
210 CO=INT(15*RND(1))+0
220 Y=INT(4*RND(1))+1
230 ONYGOTO231,232,233,234
231 X=X+1:GOTO300
232 X=X-1:GOTO300
233 X=X+40:GOTO300
234 X=X-40:GOTO300
300 IFX<1064THENFORT=1TO1000:NEXT:GOTO360
310 IFX>1983THENFORT=1TO1000:NEXT:GOTO360
320 POKEJ,HI:POKEK,LO
330 POKEX,CH:POKEX+C,CO
340 POKEL,65:FORT=1TO10:NEXT:POKEL,64
350 GOTO200
360 PRINTCHR$(147):X=1524:GOTO100